home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed4.d64 / math facts drill (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  254 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  31. 405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  32. 410 [153]"  (null)HIS PROGRAM WILL GIVE YOU TEN MULTI-"
  33. 415 [153]"  PLICATION, DIVISION, SUBTRACTION OR
  34. 420 PRINT"  ADDITION QUESTIONS.
  35. 425 [153]"  RIGHT$ WILL GIVE YOU A QUESTION AT THE
  36. 430 PRINT"  BOTTOM OF THE SCREEN, WHERE YOU
  37. 435 [153]"  WILL PLACE YOUR ANSWER.
  38. 440 PRINT"  [201]F YOUR ANSWER IS CORRECT, [201] "
  39. 445 PRINT"  WILL GIVE YOU ANOTHER QUESTION.
  40. 450 [153]"  RIGHT$F YOU FAIL TO GET THE CORRECT
  41. 455 PRINT"  ANSWER AFTER 3 ATTEMPTS, [201] WILL         GIVE YOU THE ANSWER.
  42. 460 [141] 820
  43. 465 [142]
  44. 485 [141]835
  45. 495 [142]
  46. 699 :
  47. 700 [143] <YES>
  48. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  49. 710 [151]54296,15:[151]54277,42:[151]54278,250
  50. 715 [151]54276,23:[151]54273,23:[151]54272,191
  51. 720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  52. 725 [151]54296,0:[142]
  53. 730 [143] <NO>
  54. 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  55. 740 [151]54296,15:[151]54277,18:[151]54278,242
  56. 745 [151]54276,33:[151]54273,4:[151]54272,48
  57. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  58. 755 [151]54296,0:[142]
  59. 760 [143] <BLIP>
  60. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  61. 770 [151]54296,7:[151]54277,42:[151]54278,250
  62. 775 [151]54276,23:[151]54273,23:[151]54272,191
  63. 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  64. 785 [151]54296,0:[142]
  65. 790 [129]T[178]1[164]500:[130]:[142]
  66. 791 [129]T[178]1[164]1000:[130]:[142]
  67. 792 [129]T[178]1[164]2000:[130]:[142]
  68. 793 [129]T[178]1[164]3000:[130]:[142]
  69. 795 [129]T[178]1[164]5000:[130]:[142]
  70. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5
  71. 801 [153]"     A TPUG EDUCATIONAL PROGRAM
  72. 802 PRINT"           FOR C64 COMPUTERS
  73. 803 [153]"              GRADES 2-6":[141]791
  74. 804 [153]"                                        WAIT";
  75. 805 [153]"                                        WAIT";
  76. 806 [153]"                                        WAIT";
  77. 807 [153]"           MATH FACTS DRILL             WAIT";
  78. 808 [153]"                                        WAIT";
  79. 809 [153]"                                        WAIT";
  80. 810 [153]"                                        WAIT":[141]792:[141]760
  81. 811 [153]"          INSTRUCTIONS?  Y/N
  82. 812 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN812
  83. 813 IFUI$="Y"THENGOSUB400
  84. 814 PRINT"[147] AND AWAY WE GO..........":GOSUB792:GOSUB700
  85. 815 GOTO 1000
  86. 820 GOSUB791:GOSUB760
  87. 823 POKEUN,0:PRINTLEFT$(UD$,24);"[208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]"
  88. 825 GETUI$:IFUI$<>" "THEN825
  89. 830 RETURN
  90. 835 GOSUB791:GOSUB760
  91. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[158]      [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]      [155]"
  92. 840 GETUI$:IFUI$<>" "THEN840
  93. 845 RETURN
  94. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  95. 855 PRINT" --------------------------------------"
  96. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEM PRESS [210][197][212][213][210][206][146]
  97. 865 UH[178]0:[153]"":[142]
  98. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  99. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  100. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  101. 905 UD$[178]"":UP$[178]                                       "
  102. 906 DIMRM(9,9)
  103. 909 RETURN
  104. 910 GOSUB900:PRINT"[147] "
  105. 920 GOTO 800
  106. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,6:POKEUX,6
  107. 1170 POKE UT,UL%:UT$=" [205]ATH [198]ACTS [196]RILL":UG$="":UP=0:GOSUB850:UP=0
  108. 1175 PRINT" [215]HICH OPERATION WOULD YOU LIKE TO":PRINT" PRACTICE? "
  109. 1180 PRINTSPC(11)"[193][146][145][157][164]DDITION"
  110. 1190 PRINTSPC(11)"[211][146][145][157][164]UBTRACTION"
  111. 1200 PRINTSPC(11)"[205][146][145][157][164]ULTIPLICATION"
  112. 1210 PRINTSPC(11)"[196][146][145][157][164]IVISION":GOSUB760
  113. 1220 PRINTSPC(10)" ";
  114. 1230 UR$="":US$="ASDM":UL=1:GOSUB35:K$=UR$
  115. 1255 BX=0:TX=10
  116. 1256 CH=0:W1=0:R=0:W=0
  117. 1260 BY=0:TY=10
  118. 1270 FORX1=1TO9:FORY1=1TO9:RM(X1,Y1)=0:NEXTY1:NEXTX1
  119. 1275 PRINT"[147]":IFUW=0THENSYSUU,15
  120. 1280 IFK$="Q"THENRETURN
  121. 1282 UT$=" [205]ATH [198]ACTS":UG$="[209]UESTION #":GOSUB850:GOSUB2220
  122. 1285 W1=0
  123. 1300 X=INT(RND(TI)*9)+1
  124. 1310 Y=INT(RND(TI)*9)+1:IFRM(X,Y)=1THEN1300
  125. 1315 RM(X,Y)=1
  126. 1320 IFR$= "S"ANDY>XTHENSX=X:X=Y:Y=SX:GOTO 1580
  127. 1330 IFK$="M" THEN 1380
  128. 1340 IFK$="D" THEN 1440
  129. 1350 IFK$="A" THEN 1510
  130. 1360 IFK$="S" THEN 1580
  131. 1380 PRINTSPC(18)"[145]"X" X "Y" = ";
  132. 1385 PP=X*Y
  133. 1390 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
  134. 1395 A=VAL(UR$)
  135. 1420 IF A=X*Y THEN 1740
  136. 1430 IF A<>X*Y THEN 1780
  137. 1431 IF UR$="Y" THEN 1170
  138. 1435 GOTO 1390
  139. 1440 REM**DIVISION***
  140. 1450 D1=X*Y
  141. 1460 PRINTSPC(18)"[145]"D1" / "Y" = ";
  142. 1462 PP=X
  143. 1463 PRINT"[160][160][160][157][157][157]";
  144. 1465 US$="-1234567890Q":UL=2:GOSUB 35:IF UR$="Q" THENGOSUB8145:GOTO1450
  145. 1467 A=VAL(UR$)
  146. 1490 IF A*Y=D1 THEN 1740
  147. 1500 IF A*Y<>D1 THEN 1780
  148. 1501 IF UR$="Y" THEN 1170
  149. 1505 GOTO 1465
  150. 1510 REM**ADDITION****
  151. 1520 PRINTSPC(18)"[145]"X" + "Y" = ";
  152. 1525 PP=X+Y
  153. 1530 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
  154. 1535 A=VAL(UR$)
  155. 1560 IF A=X+Y THEN 1740
  156. 1570 IF A<>X+Y THEN 1780
  157. 1571 IF UR$="Y" THEN 1170
  158. 1575 GOTO1530
  159. 1580 REM**SUBTRACTION***
  160. 1590 PRINTSPC(18)"[145]"X" - "Y" = ";
  161. 1595 PP=X-Y
  162. 1600 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
  163. 1605 A=VAL(UR$)
  164. 1630 IF A=X-Y THEN 1740
  165. 1640 IF A<>X-Y THEN 1780
  166. 1641 IF UR$="Y" THEN 1170
  167. 1645 GOTO 1600
  168. 1650 REM**GIVE THEM THE NEWS
  169. 1655 IF R+W=0 THEN RETURN
  170. 1660 S=(R/(R+W))*100
  171. 1670 R$="PROBLEMS WERE":IFR=1THENR$="PROBLEM WAS"
  172. 1680 W$="PROBLEMS WERE":IFW=1THENW$="PROBLEM WAS"
  173. 1690 UP=0:UH=1:GOSUB850:UG$="[211]CORES"
  174. 1695 PRINT""R;R$" RIGHT":PRINT""W;W$" WRONG"
  175. 1700 PRINT"[147] [212]HAT GIVES YOU ";
  176. 1710 PRINT"A SCORE OF"INT(S*10+.5)/10"%"
  177. 1715 IFCH=5THENCH=0:GOTO2155
  178. 1720 GOTO8152
  179. 1730 GOSUB835:PRINT"[147]";:UP=UP-1:GOTO1270
  180. 1740 REM**KEEP TRACK OF RIGHTS***     L
  181. 1750 R=R+1:GOTO1860
  182. 1760 PRINT"[147]";:GOTO1280
  183. 1770 REM**KEEP TRACK OF THE WRONGS**
  184. 1780 W1=W1+1
  185. 1781 IF W1=3 THEN GOTO 2260
  186. 1782 PRINT TAB(6);"[150][211]ORRY, BUT THAT IS WRONG!! [146][145][155]":GOSUB730
  187. 1783 FOR Q=1 TO 1500:NEXT:PRINT"                                     [145]"
  188. 1785 PRINT "[145][145]";TAB(30)
  189. 1790 IFK$="M" THEN 1390
  190. 1800 IFK$="D" THEN 1463
  191. 1810 IFK$="A" THEN 1530
  192. 1820 IFK$="S" THEN 1600
  193. 1840 RETURN
  194. 1850 REM"[166][166][166][166][166][166][166][166][166][166][166]SELECT THE GOODIE MSG
  195. 1860 [153]"SYSLOAD"
  196. 1870 [153]"      SPC(     SPC(   SPC(SPC(SPC(SPC(SPC(SPC(    SPC(SPC(SPC(SPC(SPC("
  197. 1880 [153]"       SPC(   SPC(    SPC(         SPC("
  198. 1890 [153]"        SPC( SPC(     SPC(         SPC("
  199. 1900 [153]" (null)(null)(null)     SPC(      SPC(SPC(SPC(       SPC(SPC(SPC(SPC(SPC(    (null)(null)(null)"
  200. 1910 [153]"         SPC(      SPC(             SPC(
  201. 1920 PRINT"         [166]      [166]             [166]"
  202. 1930 PRINT"         [166]      [166][166][166][166][166][166]    [166][166][166][166][166]"
  203. 1940 PRINT"                [155]":GOSUB700
  204. 1950 IF X=BX+3 THEN PRINT TAB(12);"[217]OU'RE A WINNER"
  205. 1960 IF X=>BX+6 THEN PRINTTAB(13);"[212]HAT'S [199]REAT
  206. 1970 [139] X[178]Y [167] [153][163]10);"...BUT IT WAS EASY!":[153]
  207. 1980 [141]3370:[139]UP[173]10[178][181](UP[173]10)[167][137]2150
  208. 1985 [137]1760
  209. 2140 [143]**OPTION TO CHNGE**
  210. 2150 CH[178]5:[141]835:[137]1660
  211. 2155 [153]" (null)OU NOW HAVE ANSWERED 10 PROBLEMS.":[141]793
  212. 2160 [153]" (null)OU HAVE A CHOICE:
  213. 2165 PRINT" [208]RESS  [208] [146] TO CONTINUE.
  214. 2170 [153]" (null)RESS  (null) WAIT TO RETURN TO MAIN (null)VAL(null)(null)":[141]760
  215. 2175 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]2175
  216. 2180 [139]R$[178]"P"[167] 1170
  217. 2190 [153]"LOAD (null)ETURNING TO THE MAIN (null)VAL(null)(null)
  218. 2195 LOAD"MENU",8
  219. 2197 RUN
  220. 2199 END
  221. 2220 Q=INT(RND(TI)*16)+1:Q$="[186][180]/[165][220][172][161][219][185][177][201][216][171][170]*^"
  222. 2230 FORP=.6TO6.2STEP.3
  223. 2240 PRINTTAB(18*(1+SIN(P))+1);MID$(Q$,Q,1):NEXT
  224. 2250 RETURN
  225. 2260 PRINTTAB(6);"[153] [212]HE CORRECT ANSWER IS";PP;"[157] [145][155]":W=W+1:GOSUB730:GOSUB793
  226. 2265 IFUP/10=INT(UP/10)THENGOTO2150
  227. 2270 GOSUB835:GOTO1280
  228. 3370 RESTORE:FORI=826TO848:READN:POKEI,N:NEXT
  229. 3380 DATA162,128,160,0,132,33,134,34,177
  230. 3390 DATA33,73,128,145,33,200,208,247,232
  231. 3400 DATA224,132,208,240,96
  232. 3410 FORJ=1TO4:SYS826:P=.3:GOSUB3430:NEXT
  233. 3420 RETURN
  234. 3430 P=P*60
  235. 3440 T=TI
  236. 3450 IFTI<T+PTHEN3450
  237. 3460 RETURN
  238. 8145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  239. 8150 UZ=1:UV%=PEEK(UT):GOTO1650
  240. 8152 GOSUB835
  241. 8155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEU
  242. 8160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  243. 8165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%:POKEU4,U4%:RETURN
  244. 8170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  245. 8175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  246. 8999 :
  247. 9000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  248. 9010 REM PROJECT DIRECTOR: FRANK WINTER
  249. 9020 REM PROGRAM NAME: MATH FACTS DRILL
  250. 9030 REM WRITTEN BY DAVE ARTHURS
  251. 9040 REM REVISED BY R. WENZEL
  252. 9050 REM UPDATED BY BILL CUMBERLAND 90
  253. 9060 REM WHC 90:11:29
  254.